1 HGR2:HCOLOR=3:D(1)=139:D(5)=139:C(1)=16:C(5)=166:FORA=0TO999:POKE230,32+I*32:CALL-3086:RESTORE:X=SIN(A/9)*10:Y=COS(A/9)*10:C(0)=91+X:D(0)=139+7*Y+X:C(2)=91+Y:D(2)=139+Y-7*X:C(3)=91-X:D(3)=139-X-7*Y:C(4)=91-Y:D(4)=139+7*X-Y
3 READM:FORB=0TO11:READN:HPLOTD(M),C(M)TOD(N),C(N):M=N:NEXT:POKE49236+I,0:I=ABS(I-1):NEXT:GOTO1:DATA,1,2,3,1,4,3,5,2,,5,4,,